# print('Week 8 Labsheet')

#Load the file raw_stats, ignoring header data
perf_data <- read.table('~/eaaproject-x00076351/week8output.dat', TRUE)

plot(100 - perf_data[,'X.idle'], type='b', xlab='Time(s)', ylab='CPU Utilization % (U_i)')

print (u_i <- mean(100 - perf_data[,'X.idle']))
print (d_i <- u_i / 94)

